home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / jan93cad.zip / TIP833A.LSP < prev    next >
Text File  |  1993-02-12  |  409b  |  20 lines
  1. ;TIP #833A: CMLINE.LSP (c)1993, Bernd Hoffmann
  2.  
  3. (DEFUN C:CMLINE (/ PT1 ANG CM LEN)
  4.   (setvar "cmdecho" 0)
  5.   (setq
  6.     PT1 (getpoint
  7.       "\nStart point of line: "
  8.     )
  9.     ANG (getangle "\nAngle of line: ")
  10.     CM (getreal "\nLength of line in cm: ")
  11.     LEN (* CM 0.393701)
  12.   )
  13.   (Command
  14.     ".line" PT1
  15.     (polar PT1 ANG LEN) ""
  16.   )
  17.   (setvar "cmdecho" 1)
  18.   (princ)
  19. ); end cmline.lsp
  20.